Login Module

[__BLooDsuCkeR__]

hey this is for coders out der
or any1 who can help me find this files

i need two files..

i m a newbie at this coding stuff
i need two files
plz help me out if u can

LoginModule.bas
BootPackets.bas

so plz help me if u can
thnk u all

[destroyer_messy]

'LoginModule Here.....
'By: -Destroyer-Messy-
'Declarations
Const Ver As Integer = 12
Const Name As String = "YMSG"
Private Declare Function YMSG12_ScriptedMind_Encrypt Lib "YMSG12ENCRYPT.dll" (ByVal username As String, ByVal Password As String, ByVal Seed As String, ByVal result_6 As String, ByVal result_96 As String, intt As Long) As Boolean
'-/-------
'Functions
'-/-------
Public Function GetStrings(YahooID As String, YahooPass As String, Seed As String, Str1 As String, Str2 As String, Mode As Long) As Boolean
Dim A(1) As String, B As Long
On Error GoTo err
A(0) = String(80, vbNullChar)
A(1) = String(80, vbNullChar)
GetStrings = YMSG12_ScriptedMind_Encrypt(YahooID, YahooPass, Seed, A(0), A(1), Mode)
B = InStr(1, A(0), vbNullChar)
Str1 = Left$(A(0), B - 1)
B = InStr(1, A(1), vbNullChar)
Str2 = Left$(A(1), B - 1)
Exit Function
err:
GetStrings = False
End Function
'-/-------
'The Define ANd Configure The Header Of The Packet
Public Function Header(ByVal PacketType As String, ByVal pck As String) As String
Dim i As Integer
Dim X As Integer
X = 0
i = Len(pck)
Do While i > 255
i = i - 256
X = X + 1
Loop
Header = Name & Chr(0) & Chr(Ver) & String(2, 0) & Chr(X) & Chr(i) & Chr(0) & Chr("&H" & PacketType) & String(8, 0) & pck
Debug.Print Header
End Function
'-/-------
'Login Function
Public Function Login(YahooID As String) As String
Dim pck As String
pck = "6" & Crypt(0) & "96" & Crypt(1) & "0" & YahooID & "2" & YahooID & "192-1211" & YahooID & "99beta1356,0,0,155514830059B04um3 lh08ql2q&b=259"
Login = Header("54", pck)
End Function
'-/-------
'Gets The Login Key...
Public Function Get_Key(YahooID As String) As String
Dim pck As String
pck = "1À€" & YahooID & "À€"
Get_Key = Header("57", pck)
End Function
'-/-------
'Custom Pause Function Used To Slow Things Down
Public Function Pause(interval)
Dim atime
atime = Timer
Do While Timer - atime < Val(interval)
DoEvents
Loop
End Function
'-/-
'Download Link >> [Only registered users can see links. ]

[destroyer_messy]

Boot-Packets-Here..... (Basic Boots packets use to learn)

[Only registered users can see links. ]

[saswata]

bro plz update the new patched login module..thanx in advance..

[destroyer_messy]

Originally Posted by saswata

bro plz update the new patched login module..thanx in advance..</